home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 08ex007.jar / code / ch08 / 08ex007 / 08ex007.pl next >
Perl Script  |  1998-04-01  |  448b  |  14 lines
  1. #!/usr/bin/perl  
  2. $colors="rainbow"; 
  3. @colors=("red", "green", "yellow" ); 
  4. &printit(*colors); #Which color is this? 
  5. sub printit{ 
  6. local(*whichone)=@_; # must use local, not my with globs 
  7. print *whichone, "\n"; # the package in main 
  8. $whichone="Prism of Light"; # alias for the scalar 
  9. $whichone[0]="PURPLE"; # alias for the array 
  10. }  
  11. print "Out of subroutine.\n"; 
  12. print "\$colors is $colors.\n"; 
  13. print "\@colors is @colors.\n"; 
  14.